home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Night of the Living Disc / Night of the Living Disc.hdv / Dev.CD.5 / Tools / DTS.Samples / SC24Teach / Teach.p / Teach.p < prev    next >
Encoding:
Text File  |  1990-05-25  |  1.5 KB  |  80 lines  |  [04] ASCII Text (0x0000)
  1. {**********************************************************************
  2. {*
  3. {* Teach -- Version 3.0  (Main Program)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1989
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the Teach program.
  12. {*
  13. {**********************************************************************}
  14. {$R-}
  15.  
  16. program Teach;
  17.  
  18. USES 
  19.         types,
  20.         Quickdraw,
  21.         fonts,
  22.         memory,
  23.         IntMath,
  24.         events,
  25.         prodos,
  26.         locator,
  27.         controls,
  28.         windows,
  29.         lists,
  30.         scrap,
  31.         dialogs,
  32.         menus,
  33.         desk,
  34.         STDFile,
  35.         QDAUX, 
  36.         print,
  37.         miscTool,
  38.         lineEdit,
  39.         GSOS,
  40.         resources,
  41.         
  42.         uEvent,             {HodgePodge Code Units}
  43.         uMenu, 
  44.         uWindow, 
  45.         uUtils,
  46.         uGlobals;
  47.  
  48. var
  49.     initRef : Ref;      { This holds the reference to the startstop record }
  50.  
  51.  
  52. PROCEDURE Debug;  INLINE $0000;
  53.  
  54.  
  55.  
  56.  
  57.  
  58. BEGIN  { of MAIN program Teach }
  59.  
  60.     { Init our globals. }
  61.     initGlobals;
  62.  
  63.     userID := MMStartup;
  64.     
  65.     { Startup the tools using the new toolbox call }
  66.     initRef := StartupTools(userID,refIsResource,Ref(1));
  67.     if _toolErr = 0 then
  68.         begin
  69.             setUpMenus;     { Set up menus }
  70.             setupWindows;
  71.             InitCursor;     { Make cursor show ready }
  72.             mainEvent;      { Use application }
  73.         end;
  74.  
  75.     { Let the toolbox shutdown the tools. }
  76.     ShutDownTools(RefIsHandle,InitRef);
  77.  
  78.  
  79. END.   { of MAIN program Teach }
  80.